home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
tag_bbs
/
dvtag.zip
/
MAILER.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-12-22
|
4KB
|
185 lines
Rem -=[ FrontDoor batch file for The Abacus - Node 3 ]=-
@echo off
:Reset
echo ..........................Starting up FrontDoor.............................
c:
cd\bbs\s
tagswap 1 c:\bbs\s\ c:\bbs\s\ >nul
del logon2.msg > nul
murphy > logon2.msg
if exist \bbs\gfiles\nettoss.log goto matrix
if exist \bbs2\gfiles\nettoss.log goto matrix
if exist \bbs3\gfiles\nettoss.log goto matrix
if exist \bbs4\gfiles\nettoss.log goto matrix
:loop
modem 3 on>nul
cd\bbs3\fd
fd
:levels
if errorlevel 224 goto 2400
if errorlevel 220 goto wait
if errorlevel 219 goto 19200
if errorlevel 214 goto 14400
if errorlevel 212 goto 1200
if errorlevel 210 goto local
if errorlevel 206 goto mailout
if errorlevel 205 goto getfiles
if errorlevel 204 goto renumber
if errorlevel 203 goto 300
if errorlevel 202 goto events
if errorlevel 150 goto mailin
if errorlevel 100 goto sysoplog
if errorlevel 96 goto 9600
if errorlevel 90 goto fdlog
if errorlevel 80 goto qmodem
if errorlevel 70 goto mailout
if errorlevel 60 goto events
if errorlevel 50 goto amax
if errorlevel 40 goto renumber
if errorlevel 30 goto mailin
if errorlevel 10 goto quit
if errorlevel 1 goto end
:mailout
modem 3 off>nul
if exist c:\bbs\in\nodediff.a* gosub nodeproc
call mailout
goto reset
:mailin
modem 3 off>nul
cd\bbs3\fd
if exist c:\bbs\in\*.fle gosub ticfle
if exist c:\bbs\in\*.tic gosub tictic
qm toss scan pack link -cc:\bbs3\fd\qm.cfg -ac:\bbs3\fd\areas.bbs
if exist c:\bbs\out\*.$$* del c:\bbs\out\*.$$*
if exist c:\bbs\in\f159_*.* move c:\bbs\in\f159_*.* d:\lists
if exist c:\bbs\in\*.zip move c:\bbs\in\*.zip d:\files
if exist c:\bbs\in\*.arc move c:\bbs\in\*.arc d:\files
if exist c:\bbs\in\*.lzh move c:\bbs\in\*.lzh d:\files
if exist c:\bbs\in\*.sdn move c:\bbs\in\*.sdn d:\files
if exist c:\bbs\in\*.arj move c:\bbs\in\*.arj d:\files
goto reset
:matrix
modem 3 off>nul
cd\bbs3\fd
qm pack
if exist c:\bbs\gfiles\nettoss.log del c:\bbs\gfiles\nettoss.log
if exist c:\bbs2\gfiles\nettoss.log del c:\bbs2\gfiles\nettoss.log
if exist c:\bbs3\gfiles\nettoss.log del c:\bbs3\gfiles\nettoss.log
if exist c:\bbs4\gfiles\nettoss.log del c:\bbs4\gfiles\nettoss.log
goto reset
:ticfle
cd\bbs3\fd
ticket -me:\msgs\announce -tAbacus_Users -FTAG_Distribution_System -Lc:\bbs3\fd\fle.log -STDS_Files_Received -aTAGUTIL -aTAGDIST -aTAGDOORS
ticket -me:\msgs\announce -p -tDeb_Ackley -FTAG_Beta_Distribution_System -Lc:\bbs3\fd\fle.log -STAG_Beta_Files_Received -aBETA
ticket -me:\msgs\announce -tAbacus_Users -FSDN_Distribution_System -Lc:\bbs3\fd\fle.log -SSDN_Files_Received -aSDN_SYST -aSDN_MISC -aSDN_WORD -aSDN_DATA -aSDN_COMM -aSDN_UTIL -aSDN_GAME -aSDN_BUSI
ticket -me:\msgs\announce -tAbacus_Users -FSDS_Distribution_System -Lc:\bbs3\fd\fle.log -SSDS_Files_Received -aSDSBINK -aSDSMAX
ticket -me:\msgs\announce -tAbacus_Users -FN159Files_Distribution_System -Lc:\bbs3\fd\fle.log -SNet159_Files_Received -aFIDONEWS -aNODELIST -aSCAN1 -aSCAN2 -aCOSTS -aN159ELST -aN159FILS -aLBBSLIST
ticket -me:\msgs\announce -tAbacus_Users -FDVNET_Distribution_System -Lc:\bbs3\fdfle.log -SDVNET_Files_Received -a100-850
:tictic
cd\bbs3\fd
sds2dir -FC:\bbs\multi -L c:\bbs3\fd\tic.log
tick >> c:\bbs3\fd\tic.log
qm scan pack -ftick.bbs
echo Tic or Fle files received >> c:\bbs\s\user1.msg
return
:getfiles
modem 3 off>nul
call get
goto loop
:renumber
modem 3 off>nul
call xnum
goto loop
:events
modem 3 off>nul
call events3
goto loop
:nodeproc
modem 3 off>nul
call nodeproc
return
:sysoplog
modem 3 off>nul
l \bbs3\gfiles\sysop.log
goto loop
:fdlog
modem 3 off>nul
l \bbs3\fd\fd.log
goto loop
:qmodem
cdd c:\qmodem\3
qmodem
goto loop
:bonk
modem 3 off>nul
cd \bbs\nodelist
bonk
goto loop
:amax
modem 3 off>nul
cd\bbs3\fd
amax -b -i
goto loop
:2400
cd\bbs3
elevel 24
goto end
:wait
cd\bbs3
elevel 20
goto end
:19200
cd\bbs3
elevel 96
goto end
:14400
cd\bbs3
elevel 96
goto end
:1200
cd\bbs3
elevel 12
goto end
:Local
cd\bbs3
elevel 10
goto end
:300
cd\bbs3
elevel 3
goto end
:9600
cd\bbs3
elevel 96
goto end
:quit
elevel 1
:end